home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 23 Geos Applications / TRCKBL.BIN / DEMO1 (.txt) next >
Commodore BASIC  |  2019-04-13  |  1KB  |  26 lines
  1. 10 S=49152
  2. 20 POKE2040,13:POKE53280,0:POKE53281,0
  3. 30 FORK=832TO894:READX:POKEK,X:NEXT
  4. 40 FORK=STOS+98:READX:POKEK,X:NEXT
  5. 50 FORK=1TO15:READX,Y:H=INT((S+Y)/256):L=S+Y-H*256:POKES+X,L:POKES+1+X,H:NEXT
  6. 60 V=53248
  7. 70 POKEV+21,1:POKEV+28,1
  8. 80 POKEV+39,7:POKEV+37,1
  9. 90 POKES+102,24:POKES+103,0:POKES+101,50
  10. 100 P=56321:N=16
  11. 110 SYSS:SYSS:SYSS:SYSS:SYSS:IF(PEEK(P)ANDN)=NTHEN110
  12. 120 POKE198,0
  13. 130 REM          SPRITE DATA
  14. 140 DATA85,0,0,100,0,0,105,0,0,90,64,0,70,144,0,1,144,0,0,64,0,0,0,0,0,0,0
  15. 150 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  16. 160 REM     MACHINE LANGUAGE DATA
  17. 170 DATA 173,99,192,141,100,192,173,1,220,141,99,192,41,10,77,100,192,72,41
  18. 180 DATA 12,201,12,240,10,201,8,208,9,206,101,192,24,144,3,238,101,192,104
  19. 190 DATA 41,3,201,3,240,15,201,2,208,19,206,102,192,208,14,206,103,192,24
  20. 200 DATA 144,8,238,102,192,208,3,238,103,192,173,103,192,41,1,141,103,192,173
  21. 210 DATA 16,208,41,254,13,103,192,141,16,208,173,102,192,141,0,208,173,101,192
  22. 220 DATA 141,1,208,96
  23. 230 REM       RELOCATION DATA
  24. 240 DATA 1,99,4,100,10,99,15,100,29,101,35,101,49,102,54,103,60,102,65,103
  25. 250 DATA 68,103,73,103,81,103,87,102,93,101
  26.